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NESTE NUMERO 


Introducao a Linguagem Maquina Ra can resume dando persa na 
Enciciopedia da Lirguagçes Basic (parta Sacocssrssnnscusecsc costs 


PROGRAMAS ZX81 
Rai vinMM a sasassdddsesctisadsrindssaca DEST S RSS ar ao É 
Joao Un MMDesarsradrstaiado E du ae E E e E A 
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REC Cr ac indudadi era dd Da E DS E 2 l 


MOSQUITOS, sentes à 0... “o... ww uu essi ad em A 


PROGRAMAS SPECTRUM 


ls At PPP PPT TOO PPT Pro Tro ENS SS E A Md 16) 
DA al LT TOTAIS TTISE IT Ló 
Bolicacoes da Irngustria DRQW...... «a. E q a o Dc :7 
Orooramas DPraticos em Codico Macuina para 

D'ZA MPMELTMOUM TIRAPEO Llssrnsndicaes CASE RAS SE É 19 


e, 


Espaco Spectrum (Parte I) -—- Droorama Disassembler.... = 


METODO TrapézoidAdascarconcasandrs CERA ER RR asas Rad RR + 
Software Spectrum. .esccconzvos RR q RR EE DR o as EA 
Rua LIVE ss bes TRI SERRAS si RS VITAE Ê Sal e A a il ar 


ANEXO: Cupao de Inscricao 





- . ass ceME OUT URU ROS URU RMT LULU UU UA UA TUNA UI AA UT TUR una Tuma 
a O UU USA UU UAU CEU SUTS CUT UMU COLS US USE TEST TEST TUAS TU Tua uma suma 


e uu uu sus eus cama US TESO UML UCA UU USA TUUS TERT UMA UNA UA TUNA uam am 
a us uu OS SST TEME UMES UU TUA ERA UT USA TU RUA UMA aU mama qua cm cosa 


Frimeira rotina CeMs. 
1 LO EC, HH 
3 INC BC 
42 LD HL, CNN) 


A 
64 16396 


ce LD D, WN 


35 INC HL 
126 LDA, <HL»> 


1863 CPC 
49 JR Z, e 
4 


114 LD cHL?2, D 
e” LDD, A 

24 JR, & 
247 (<256 —- dar) 
L6 DINZ, & 
243 (256 - 243) 


291 RET 


a COS CEMS CSS TOUT TOME URU CUUS UUU SUS TEUS TOUS CULS CLS USA TOSU EMT URU USE URU TOUS URU TEST TERU UML UU USA UM USA ORA UN URU TUE EL cUsT UT UR un cus e UNA tunA TRA er um. uma 
a. ec. UML CELS OL TULL TOUS SUS CRLS SEUS SONS VOLS TULE GULS TUSS OUT TULL TULL SUL TELS TOU PMS TULL TULL URL TUAS EUA cULA TEME UI UU TEST SUNT TRLS TUAS SU UAU ARA RUA RUA AUT TUNA UA ten team uma 


A LINGUAGEM MAQUINA 
(corntimiscao) 


e SEUS TELS USA TOUS TUMS ULU SU TOUT SAS URU UR GEC PAUS TRUE TORA TOU ELE US CLS TELS TUM CELL TOUT UULU RLL UAU ROS UUU RSA OUT TUR RSS TURT TERA UIT TUUL URU UU UA RU uni UA una una ums 
e. SO GUS SUS COML LS SEME TOUS SEUS CENÉ TOUS URU SEUS SOLS TELA TEUS TEUS TEUS OUT OSS TEUS TESE SEUS TULE RIU LITE TELS URU RMS UUS UT CURE CUTU UNS CUL UU TST TUUT UNA AUS cut quam art uam una ums 


FERNANDO D'ALMEIDA FRECES 


a. 44 TEME ENE SUS TEUS SEMU US RUE USA USA USA TULE URU TOUS Ud USA UU UNS UA uu uu eus uau una 


SCROLL-ESTE com imicio em 16514 


em C, contendo 113 clirv+i» 
em B, 23 (numero de linhas 
utilizadas no movimento 
SCROLL > 
carga de HL com o endereco 
do ficheiro de projeccao 
CD=P ILE > 


| caraa de D com 9 


o conteudo de HL vai para À 
e e comparado com £C. Se for 
118, comeca a transferencia 


da linha seguinte. 


duando E = 3 regresso 


ao EASICL. 


é 


1 


o 


Segunda rotina C.M. 


LD EC» NN 


INC EC 


LD HLs NN 


16400 


LD D» N 


DEC HL 
LD Às C<HL) 
e É 


JkKZs e 


LD CHL)s D 


LD D, & 


Jky e 


DJ) NZ» e 


RET 


SROLL ESTE-DESTE com inicio em 16550 


C=117+1 (NEWLINE) 


=23 (Linhas) 


Bronta HL rara o fim 


do ficheiro de Perrojeccao 


-salta se for zero 


Terceira rotina C.M. 


84 


Was 


LD EC» NN 


7 26 


LO Hlsy CNN) 


16396 
AD D Hi., EC 
LD D, H 
Lo E+ É 


LD EC» NN 


693 


LD HLs CNN) 
16396 
AD D HLs EC 


LDDK 


RET 


A INSTRUCÃO LDDK 


Esta instrucao e similar a LDIK» 
excerto que os valores de HL e DE sao decrementados 


SROLL NORTE-SUL com imicio em 16586 


Cacia linha de imsgem contem 
33 caracteres (92 que formam 
3 linha + 0118 N/L) 


Em 


33 carscteres x 22 linhas = 7% 


o registo DE e fixado no 
endereco mais aito do 
bloco de caracteres 
Que e compeosto For 
21 LINHAS 


a transferencia de caca byte, 


Com estas 3 rotirias 


PTOGTBMIS é 


em Le.M, 


(CONTINUA NO PRÓXIMO NUMERO) 


Ja utilizada no eroerama 
(n-1l) a seguir 


tem o leitor a sus diseosicao 3 
movimentos SCROLL distintos; que rodera utilizar nos seus 
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es as eus ess UNS UA UT UML uM cut URU RMT RM RR. uma mm 
a Que tes e cano teca Gus cum vous tuas tuto Gem tuas aos oo tea muco muro tamo some game Some so0s Sato temo sumo Sere arcs ares secs gese cons Tome coma Tucs ares Cica Temo Temo cs RE EEE 
que sum sóco quo gos sam ap gos Se co dm e pu Sos Se ES RS ESET EEE ES EEE SST TES 
.... 


» ? TRATA-SE DE UM OFERADOR LOGICO E DIFERE 
CONSIDERAVELMENTE DE MAQUINA FARA MAQUINA» À SUA UTILIZAÇÃO. 
POR EXEMPLO $ CASO GERAL 


IF X=1i AND Y=1 THEN GOTO 100 


se o valor da variavel X AND (e) o vslor da variavel Y forem iguais 
a 1 entao 2 condicao cumepre-se e o fluxo do Programa e desviado rara 8 
linha 100. 


PROGRAMA TESTE 
10 REM FROGRAMA DE TESTE LOGICO 'AND' 
20 LET X=5 
30 LET Y=7 
40 IF X=5 AND Y=7 THEN GOTO 70 
SO PRINT "NAO FASSOU O TESTE 'AND'-OPFERADOR LOGICO" 


60 GOTO 99 
70 PRINT “FASSOU O TESTE 'AND'-OPERADOR LOGICO" 
99 STOF 


ALGUNS MICROCOMFUTADORES USAM O OFERADOR 'AND' COMO FORMA DE 
COMPARAREM ' LOGICAMENTE! STRINCS (variaveis alfamumericas). 

FOR EXEMPLO, IF X6="A" AND Yé&="Eº THEN GOTO 1004 neste caso» se 3 
variavel Xft e igual 3 À "'AND' a variavel Y$ e icusl a letra E a 
condicao IF-THEN sera cumerida e 2 execucao continusrs ne linha 100, 


CASO TI 

OUTROS COMPUTADORES FERMITEM USAR O OFERADOR 'AND' SE DETERMINADAS 
CONDICOES SAO CUMPRIDAS ENTRE OFERADORES RELACIONAIS.QUANDO À 
CONDICAO DE AMEOS OS OFERADORES E SATISFEITA» 'AND' KEGRESSA COM O 


VALOR 1.NO CASO DA CONDICAO NÃO SER SATISFEITA» KREGRESSA COM O VALOR 
0, 


FROCRAMA TESTE £2Z 
10 REM FROCRAMA TESTE 'AND'-LOGICO 


20 FRINT "ENTRAR COM VALOR ENTRE à E 9º 
30 INFUT X 


40 FRINT TAECIO AND X=:3)5 X 


e. -— 


7 er e] pe CO Ii a 2d O a ST To O 


30 COTO 30 


VERIFIQUE QUE NO CASO DO VALOR DE X SER SUFERIOR à 5, O VALOR DE X 
SERA ESCRITO NA FOSICAÃO 10 < AND=1) E QUANDO O VALOR DE X E MENOR QUE 
vs SERA ESCRITO NA POSICÃO 0 < AND=05., 


CCONTINUA NO FROXIMO NUMERO) 


ERGUNTAS/ RESPOSTAS. « : PERGUNTAS/ RESPOSTAS, « e PERSUNTAS/RESPOSTAS. « e PERGUNTAS /RESPOSTAS. e e PERGUNTAS) 





As questões de RUI PEDRO CARVALHO / Barreire 


a RESPOSTA À PERGUNTA Nº 1 


NO NUMERO 8 foi publicado um grupe de instruções para verificar o estado da 
memoria. Aqui se reproduzem as mais importantes para o ZX 41. 


5 PRINT 
lã PRINT 
ed PRINT 
38 PRINT 
4a PRINT 


“PROGRAMA” 
(PEEK 16396+25€XPEEK 16397)-16599;" BYTES" 


"VARIAVEIS" 
(PEEK 16404+256+XPEEK 164653)-C FEEK 16400+256X%FEEK 1L6d0l)-1L;" EYTES"O 


e PERGUNTA NUM. 2 : Qual o significado de “345 IF PEEK B = 24 THEN SLOW 500º 


É obvie que a linha correcta será : 
“345 IF PEEK B = 24 THEN GOTO 5007 


e Pergunta num. 3 = ” Será pessivel, em mode FAST, ebservar o ZX 81 a transmitir a 
imagem para e ecran ? 


Resposta : Não. Em mede FAST, o precessador deixa de estar ligado à saida para 
o ECRAN. Isto passa-se ss nível de Hardware e assim não Há Seft que 


resista, 


e PERGUNTA NUM. 4 — “OUVI DIZER QUE O ZX 81 pede estragar televisões ...” 


RESPOSTA : Alguns cinescópies pedem sofrer cem o use durante muitas heras 
de jeges, em que exista o “dispare” ou permanência de pentes | 
gráficos em determinadas zenas de ecran, sem que exista uma 
medificação de desenho. 


e PERGUNTA DO DIA 28/Ag. : “QUAIS AS CASSETTES DA BASF QUE SE RECOMENDAM ? 
RESPOSTA : BASF 60 Ferro Super LhI - BASF 60 LH EXTRA I - BASF LH 60 


ess IJ] SIZE RS 





ADIVINHA Zx81 


JAIME CASIRO / Porto 


ERMEMNAS SENIANIASITSIMI SMA ISIMNNZISSINIISS AS EI III Is 


REM "ADIVINHE O NUMERO" 
REM "J.Ce/N. BAI 

SLOW 

PRINT "ADIVINHE O NÚMERO" 
LET N= INT (RND x 160) + 1 
LET CJ) = G 

GOSUB 121G 

INPUT A 

PRINT A 

LET CJ = CJ) +11 

IF A = N THEN GOTO 266 

IF A >) N THEN GOTO IGDG 
GOTO 1164 

PRINT AT 16,12; "ACERTOU"; AT 16,26; CJ; 
PRINT AT 18,2; "O NÚMERO ERA: *; N 
PRINT AT 20,2; "OUTRA VEZ ? (S/N)* 
INPUT B$ 

CLS 

IF B$ = "S" THEN GOTO 5 

STOP 

PRINT AT 16,5; "NÃO ACERTOU EM 6 TENTATIVAS" 
GOTO 256 

PRINT "O SEU É MAIOR" 

GOTO 115 

PRINT "O SEU É MENOR" 

IF CJ <6 THEN GOTO 85 

GOTO 7H 

PRINT “EU ESCOLHO UM NÚMERO" 

PRINT "ENTRE 1 E IDO.” 

PRINT "VOCÊ TEM 6 TENTATIVAS" 

PRINT "PARA ADIVINHAR QUAL É." 

PRINT "SE ACERTAR EU CONFESSO, ..” 

PRINT "SE NÃO ACERTAR, DIGO-LHE” 

PRINT "SE O SEU NÚMERO É MAIOR“ 

PRINT "OU MENOR QUE O MEU." 

PRINT “DE QUALQUER MODO, DIGO SEMPRE" 
PRINT “EM QUE NÚMERO PENSEI." 

PRINT "SE QUISER PARAR, RESPONDA (N)" 
PRINT "À PERGUNTA - OUTRA VEZ ? =" 

PAUSE 1ÓGÓ 

CLS 

RE TURN 


(em inverse/videe) 


AT 16,23; "TENTATIVA" 


(inverse/videe) 


o q ço ça VER = Buda mpsmmam sm 1 
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ZX81 


FERNANDO PRECES / Sacavém 


JOGO DO GALO 


CDA E TT ae ape 2 a id o ee e es 





PO CC E CE CL O CL O O O O nda 


EM PROGRAMA TRAL. E MODIFICADO POR ALMEIDA PRECES,EM 4c4rn2. 
REM “e” 

GOSUB 306 

PRINT” e! 

PRINT! Xe. E. 3" 

PRINT O. E" RE 
PRIHMT Ciconcncunso : 

PRINT 2 ut 

PRINT! 4.5.6! 

PRINT! at 

RN Saias 24 E 

PRINT” sw” 

PRINT "7.8.9" 

PRINT! ar 

GOSUE 289 

LET A=T-1 

LET B=T 

LET T=CODE * | 

LET “=61 | 
GOSUB 248 | 
GOSUB 260 | 
GOTO 148 

LET x=52 | 
IF INKEYS<>"" THEN GOTO 218 SG | 
IF INKEY$="" THEM GOTO 228 " 
LET T=CODE INKEYS-29 . | 
PRINT AT CODE ""<TD>,CODE ""CT>;CHRS CX) 
RETURN 

PRINT AT 44"]0GO DO GALO 

PRINT ,. "NESTE JOGO, EU USO A MARCA &Hx, E” 

PRINT ,, "VOCE A MARCA 40%." 

PRIMT .,., "PARA JOGAR, CARREGUE NO NUMERO" 

PRINT ., "DESEJADO. NAO SE DISTRAIA. " 

PALISE SOM 

CLS 

RETURH 

SAVE "GALO" 

REM - <CODIGO DOS GRAFICOS DA LINHA 1592 4,7,8,1,6,5,2,3 
,2,6,8,4,1,5,8,7,4,3,6,5,2,1,7,6,5,8,3,2,1,4,7,9,4,3,6,5,1,2,6,4,5,2,3,1,8,7 
5,1,3,8,2,6,6,8,4,3,7,1,5,2 

REM — CODIGO DOS GRAFICOS DA LINHA 248 CZ GRUPOS DE & GRAFICOS CADA? 


1 4 À TR e 4 E 4 L 4 L 4 [ 4 = 1“ [+ 4 1 4 a 4 D s 1 4 o 1 L 


SAGAS AS UCRRSE 25 DS ASR ME SPAS ADS STS DESA AS E ASI GD SECOS EESTI SE SE SS 9 
ESTRELA ax8L 
DES = E AD ST SST IDO TS SSIS SE SESI AS ASAS E STD IDAS = TS 
1 RAND 4 Este jege tem come finalidade apanhar cem a 
3 IF IHKET$="" THEN GOTO 3 caixa “MB” , uma estrela "X” em 10 tenta - 
S LET AG=IHNKETS tivas, ae fim das quais sera apresentada a 
19 LET A=vAL "IO" sua pentuaçãe. Para deslecar a caixa, use 
29 LET SCORE=PI-PI as teclas: 5 e 8 (esq. e dir. respectivamen 
sa FOR L=i TO A te). Ae fazer “RUN” e pregrama ficara à es- 
Sa LET s=INT cRHDEILS +] pera que pressiene qualquer tecla, À tecla 
SB FOR t=y TO ci ”"L” funciena cem um jege de demenstraçase. 
Gg PRINT AT romã" 
rã IF Ag="Lº THEH CGOSUE Zoom 
Ci PRINT AI Zisfip” & 
TS LET AsA+c IHEETvé="8"0-cC IHEETE=0D" 
Sa PRINT AT 21.A; "8" 
ag IF á=A AND m=2l THEM LET SCORE=SCURE+I 
1900 PRINT AT T,H;" * 
1190 NEXT *Y 
128 MEXT L 
Ei PRINT AT 19, 14; "FOHTOS: "; SCORE 
166 STOP 
208 IF cria THEN LET A=H+i 
2ef IF cRA+LZZA THEN LET AsA-l 
esa RETURH 
1204 SAVE "ESTREL a” 
1gig FUN 


1 GO TO SB9a 

3 REM “ZUM” 

4 LET Ui=1 

5 PRINT TAB 25; "ZUM" 
19 LET 5=9 

3G PRINT AT 10,21;" CAMA! 
39 FOR I=ll TO 31 
49 LET X=INT <RNDXIS) 

LET Y=INT CRNDH18) 

Sa PRINT AT Mavstã! 
78 NEXT 1 
88 PRINT AT MW" 





PROGRAMA TOS” 
ADAPTAÇÃO DE JOSE MARTINS ( SPECTRUM OU ZX 481) 





O seu quarto foi invadido por mosquitose 
Quanto tempo demora a apanhá-los antes de 
ir para a cama? Use as teclas de desloca- 
ção. 3» 6, 7etã. 

O tempo é limitado e o jogo termina pela 
chegada do caçador ao topo da cama, di- 
zendo “Boa Noite”. 

Com a tecla CONTINUE vai para novo jogo 
sem apagar o que está escrito 

Com o comando RUN apaga tudo. 


99 IF INKEYSR"S"” THEN LET my) 
198 IF INKEY$S="6" THEN LET x=Xx+U 
1180 IF INKEY$="7" THEN LET x=A-U. 
120 IF INKEY9="98" THEN LET Y=7+Uy 


132 PRINT AT s,Y7;"0O" 

140 LET S=S+8.15 

158 IF X=18 AND Y=21 THEN GO TO 

168 GO TO 84 

178 PRINT AT 3,20; "BOR HOITE 

184 PRINT “"TEMPO= ":S 

280 REM "COPYRIGHT gs-/1482" 
agaa PRINT "programa MOSQUITOS" 
9018, PRIBRECTRUM 16K OU 48K" 
9piB,PRIiiaptacao de JOSE MARTINS 
agiá PRINT AT 8,8; "USAR AS TECLAS 
agiis PRINT AT 18,0; 
als PALUSE ZA 
agem CLS GO TO 2 


"OBJECTIVO: chegar a 


178 


a ca 
e pe ae ia 1 
tempo" 


Tama vo minimo de 


10 


DEDE DK DR A IR DAR DME DR AR DI A DA DR A DAS DAR A DD A DT TA NR IN A RN AR AD DD RE DK DD DK DK DK DK DK 


FALLHEAIARKRO SPECTRUM 48Kk 


ss sus ums eus cum UE cut UMA UMA UAU UUUU as TARA UA Uau CLS cbco CASS COLS CDS CULO CUUS CUCU CLOS GULA CU0O cues 
— ua ua cum coa cem um com US RMS UML OMS UM Os ams 


Im. YOUR COMPUTER 
Vol.3s m.9Ps Set/83 
Trad. e âdBr.? Je MAGALHÃES 


DEI RR A A A AR AR AR RR IR A AR DI RR AR RD A DD RD E DK 


Este rrograma esta rrerarado «ara receber Z50 fichas (Cv. linha 
60)% DIM 3$(230,8515)...+4 Este array tridimensional rermite ainda 
8 lirnhas com 15 caracteres caca, 


OFCOES 


- TERMINAR 
Tem como funcao arar o erocrama» roderdo no entanto regressar 


sem rerder as fichas que tinham entrado no erograma: eara isso use 
COTO 330 e nao KUN. 


- PREENCHER FICHA 

Tem a rossibilidade de dar entrada de 8 lirhas com 15 caracteres 
cada. 

Quando terminar a fichar se detectar cuszlauer erro” o erograma 
rermite-lhe sz suz correccao. 


- PROCURAR FICHA 

E interrogado se rretende coriss seguindo-se o pedido ds entrada 
do nome da ficha procurada, Se esta existir sera exibida no ecra 
com todos os elementos arteriormente introduzidos. 


- CRAVAR FICHEIRO 
De entrada do nome que desejas care o ficheiro; inicie o 
Gravador: utilize qualquer teclas. 


- ENTRADA DE FICHEIRO 

Esta 0FC30 rpermite-lne as ertrada de fichas arteriormente 
Gravadas. basta cera isso dar ermtrada do nome do ficheiro que 
utilizou ceara eravacaos. 


- LISTAGEM DE NOMES 
Os nomes das fichas serszo sereserntados ror ordem slfabetica» 
terdo zinda 3 orcao de coriz das mesmas. 


- LISTAGEM DE FICHAS 

Neste caso aus fichas serao apresentadas no ecrar ror ordem 
alfabetica e numeradas: com sz possibilidade de coris COMO n3B GEC3BO 
enterior. 


- REVER FICHEIRO 

Fara revisao total do ficheiro, Sera srresernrtada a ficha nmumero 
1, seguindo-se todas as outras sucessivamente bastando eara isso 
utilizar quslauer tecla excerto "PP" e "Q", 
“Pê o - Seguindo o mesmo processo em contagem decrescente 
"Q"” - Regressar 20 mer 


- ALTERAR FICHAS 

be entradas do numero da ficha que quer alterar. Com ez tecis "A 
deslogue o cursor Pa ate linha em que se verifica o erros 
Accione a tecla "FP" e groceda sz correccao. 


Lt 


Sb3 
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ELCHELRO 


PAPER A: IME To BORDER Go CLS 
PRINT o IMk &; BRIGHT 1:AT LG. L1;ºFICHEIRO À MS AT 21.9; "QUALQUER TECLA PARA 


UM TIME 


RA 


DE 


E POR LIMA": LE 


E, 4) 
A 


NTE 
— 


o q, 
- '- e 
Sais SS E 


to Pd ra 


1 SM 
La 
1 É; 
Lv 


KRA 


Ho 


Gray rs lim 
CND Amy 


“Ro fo O fo Po fa re 


Civ mmnm Rotao 
Gio DA 


SVO NDS 


o 


E 


SSH 
aa 


2CPRINT INK 5; E 
«G18,h: NEXT h: CLS 


!! 
N 
E 
it 


POKE Z2E03,5 JESSE. 

LET Fó="FICHA HO.": LET ne="HOME- "o LET h$="OUTROS-": LET 1$="MAM, 15 CH 
ET es="MAS. 3 LINHAS POR FICHA": LET ag="EMNTRADA HO,T" 

DIM age 2SA,3, 15%: LET e=1 

PRUSE G: CLS 


Go TO 348 


PRIMT O IME 7; BRIGHT 1,87 0,2;"PREENCHA A FICHA" 
GO SIJSÊ 32H: GO SUE aJE 


E 
1 


PRIHT INK 3; BRIGHT 1i;AT 3,23;e 
PRINT AT 14,14;" “AT 2Z0,4:" 


Co medido * 
PRIMT o INK 7; BRIGHT L;AT EB, Rad 
COR iz=1 TO & 
PRINT INK “; BRIGHT 1:;HT 20, 12;1 
PRIMNT BRIGHT 1; IMK V;AT j+é4,.13;005>" 
INPUT aces, à,i TO 15) 
IF agie, ii="0] “ THEH LET agie, dim" “o SO TO 247 
PRINT INK 6; BRIGHT L:;AT je4,13B:;agie,sM Li TO LEM abie,49272: HERT 
BEEP .5,50: LET f=e: GO SUE a3y 
INPUT INK 7; BRIGHT L;"QUER ABRIR OUTRA FICHACSANO"; LIME p$ 
BEEP iG, 1: LET eze+l: IF esgoa ANDO cése"'n" THEH GO TO g48 
IF pa=ºH" THEM CLS: GOTO 3sa 
PRUSE 50: FOR j=1i TO 3: PRINT AT jr4,i3;" “. NEXT j: GO TO 12 


Cs o: PRINTOo INK 4; BRIGHT 1; INVERSE L:;AT 3,6; "TERMINADO" 

FOR b=1 TO e-l: FOR c=b+l TO c-1 

IF ascb,lo.=agoc,1)> THEM GO TO 3aa 

FOR j=i TOS 

LET déz=agcb, |): LET abcb, Jo=agéo, dj): LET abro, do=d8: MEKT q 

MEAT 

HEAT Db 

RIGHT 1; INVERSE 1;AT G,6; "TERMINADO": FOR h=-26 TO 280: FEEP 


REM menu, 
PRINT INK 5; BRIGHT 1:AT 4,11;"0PCDESEAT 2,7:"1 —- TERMINARVEAT 4,742 - P 


EENCHER FICHA":AT 6,7;"3 — PROCURAR FICHA";AT 3,7;"4 — GRAVAR FICHEIROCSAT 10,7 
“S - ENTRADA DE FICHEIRO";AT 12,7;"6 - LISTAGEM DE NOMES";AT 14,7;"7 - LISTAGEM 
DE FICHAS",;AT 16,7;"8 - REVER FICHEIROC,AT 18,7/;"9 - ALTERAR FICHA” 


ns itd 
368 


IF IHKET$="" THEH GO TO SSB 
IF INKEY$="1" THEM O CL& o: PRINTOo INK 6; BRIGHT 1:;AT 14,8; "DESEJA PARAR OQ PR 


GRAMA? INPUT BRIGHT 1; FLASH 1;"DE ENTRADA: SM "obg: IF b&="5" THEM STOP 


Set 
Sishd 
Cholr 
SA 
41H 
42 
atá 
4 ati 
E PA 
E 
«rats 


IF INKEYE="2" THEM CLS GO TO 38 
IF IMKETS="3" THEM CLS: GO TO 468 
IF IMKEY$="4" THEM CLS : GO TO Sa 
IF IMKEYS="S" THEM CLS : GO TO s7G 
IF INKEvE="S" THEM CLS: GO TO ema 
IF IMKEvP$="7" THEM CLS: GO TO 1188 
IF INKEvS="8" THEM CLS: GO SUE 198 
IF INKErS="2" THEM CLS GO TO 74 
CLS : GO TO 336 

INPUT BRIGHT 1;"PRETENDE COPIATCSANO"; LINE 

CLS o PRINT BRIGHT 1; IME 1; PAPER ZSAT LA, Z;"DE ENTRADA DO NOME": LET f=e 


e dE Sassi dl ÁS TESTA ICS 


q ca — 


e e a 


o um 
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4594 INPUT LIME z& 
SG IF ze=ascr,12M% TO LEM 282 THEM CLS PRINT BRIGHT 1; INE 1; PAPER G;AT 1 
18; "ENCONTRADA": GO SUE 20: PRINT INK S; BRIGHT 1;AT 2,22;f: FOR j=l TO &: PR 
MT INK P;AT i+4,13;a8CF, 1): NEXT à: PAUSE 400: IF bg="5" THEN COPY: CLS: Go 
TO 338 

Sig IF f>1 THEM LET f=f-1: GO TO Sam 

S20 CLS : PRINT O INK 2; PAPER 7; FLASH 1:AT 21,7;"PROCURA TERMINADA": GO TO 3% 
S40 FOR v=1 TO 2: CLS | 
ssa CLS : PRINT O INK 7; BRIGHT G;"ENTRADA DO HOME DO FICHEIRO PARASER GRAVADO": 
INPUT LINE x$: IF LEN x8>18 THEM GO TO SSa 

SS1 SAVE x& DATA abc) 

560 CLS : PRINT O INK 7; BRIGHT 1;AT 4,6;"GRAVACAÃO TERMINADA": PAUSE 108: CLS 
GO TO 338 

s8o CLS : PRIMT IME 7; ERIGHT L;"HOME DO FICHEIRO QUE PRETENDE DAR ENTRADA! 
INPUT x$: IF LEM xB>18 THEM GO TO 586 


581 PRIMT : PRINT "SE O COMPUTADOR PARAR COM ""R Tape Loadina Error"" 
DE ENTRADA DE: ""GOTO s30"" (REGRESSAR AO MENU?" | 
582 LOAD x& DATA agr > SM 


SA CLS : GO TO 338 

lg PRIMT INK 7; BRIGHT 1:AT 7,O;"TECLA ""Pºo PARA GQETER LISTAGEM GMURLÇUER 7 
ECLA PARA LISTAGEM SEM COPIAR" 

beB LET e=1: INPLT BRIGHT 1;"PRETENDE COPIAPCS2HD"; LINE b$: CL 
63H IF abce,1)=" CP THEN GO TO vIW 

esp IF INKETS="P" THEN PAUSE q 

650 PRINT o IMK 7; BRIGHT l;agce,1>; INK S; INVERSE 1;º0"NO,-";esCHR$ 94: PRINT 
66h IF INKErvg="P" THEH PAUSE q 
org IF bê="5&" THEM LPREIHT ac 
ESB IF INKETE="P" THEN PRUSE 

694 LET e=ze+1: PAUSE 30: POKE 

roy PAUSE coa: cLs o: GO TO Za 
r14 PRINT FLASH 1; INK E; PAPER 1;"LISTAGEM COMPLETA" 
rem IF btã="S" THEH LPRINT "LISTAGEM COMPLETA" 


EE 


1142; INVERSE 1;"NO.-";e;CHRS 94: LPRINT 


... 


eses2z,g: GU T 


Po (E m 


— 
Ty 


a qem 
E sb 


73A PAUSE 184: CLS : GO TO S3E 

roB CLS : INPUT BRIGHT 1L:;"EHNTRADA DO HUMERO DA FICHA ";F: GO SUE S26: GO SUBS 
14 

re) PRINT IHk 7; ERIGHT LAT 3,23;F: FOR g=1 TO &: PRIHTOo INK 6; ERIGHT 15AT] 
+4,l3:aB. f,424: HEAT q 9) , 
cr GO SJSE GPE 
"og IHFUT  ERIGHT 1;"ALTERARE QUTRA FICHAPEOS-Hor: LIHE bg 

"98 IF bg&="S" THEH GO TO 75SB 


CLS +: GO TO 240 

GO TO 338 

IME 5: PAPER D: BRIGHT 1 

PLOT 28,68: DRA 226,6: DRA Gm 


mo as 


sm va (o ' 


à PLOT 2cr,13S: DRAL 4, -SE 
 PLOT ces, 156: DEBL -2ZAB 6 
E 


Tal 


O im 


PLOT 28, 148: DRA 206 
PLOT 188.146: DRAW &,- 


LDO - 


DIDIDIDLILDLO DAR MOON 


& PRINT AT 3,5;FS;AT S.ding;AT E, d4:hE 

ga RETURN 

Il PRINT o IHkE 7; BRIGHT L;AT 15,32: 18;AT 194,3;e5 
2% RETURM 

34 INPUT ERIGHT 1L;"ESTA CORRECTATOSANOM: LIHE bã 
E 


IF b$="5" THEM RETURH 
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asa IF bé="N" THEM GO TO 370 

168 GO TO S30 € 
70 PRINT O INK 7; BRIGHT 1;AT 19,8; "TECLA CºRPO INDICHE INCORRECCAO"SAT 20,0; ºC 
1 O CURSOR "ºC" TECLA "ºPºo QUANDO SELECCIONADA" MT os SA; ASS 

Ba LET =] 

9 LET sS=INKEYS: IF s$="" THEN GO TO 326 

Ba IF sé="P" THEM GO TO 1846 

318 IF s$s="A" THEN LET j=Jt+1 

42 IF j=92 THEM PRINT AT j+3,38;" 0": LET J=1 

330 PRINT INK 7; BRIGHT 1;AT j+4,3B;"ASVSAT d+3, S0; O e 

348 PAUSE 108: GO TO 338 

356 INPUT BRIGHT 1;"ENTRADA CORRECTR- “; LINE aBCr. Jo) 

Asa PRINT INK 6; BRIGHT 1;AT J+4,13;a8CF,)) 

ara GO TO 230 

psy LET f=1 

90 GO SUE g28: PRINT INK 7; BRIGHT 1;AT 18,8; "TECLA enper FICHA ANTERIOR 


TECLA ""Q"" REGRESSAR RO MENU QUALGUER TECLA PARA CONTINUAR” 
100".F f<1i THEM LET f=1 
116 PRINT INK 7; BRIGHT 1;AT 3,23;F;" ": FOR j=1 TO 6: PRINT AT j+r4,13;a4BC Ff, do? 
MEMT dj 


128 IF INKEYS="" THEN GO TO 1128 

134 [IF INKEYS="P" THEM LET f=f-1: GO TO 1100 

140 IF INKEY$="G" THEN CLS : GO TO 338 

150 IF INKEYS<>"P" AND INKEYS<C>"Q" THEN LET f=F+1 

160 IF f=e THEN CLS : PRINT INK 7; BRIGHT 1;AT 1,4;"NÃO EXISTEM MAIS FICHAS": 
PAUSE 108: CLS : GO TO 338 

178 GO TO 1108 

194 INPUT BRIGHT 1;"PRETENDE COPIA?PC So; LIME bE 
198 LET f=1: GO SUE B2Z6 

“am FOR j=1 TO & 

214 PRINT INK 7; BRIGHT 1;AT 3,23;F;AT deG, ISA FT, dO 
22g MEXT q 

cs PRUSE 1H 

244 IF bg="5" THEN COPY 

om IE f=e-1 THEN GO TO 1280 

PERO LET f=H+1 


275"º5O TO 1200 
224 CLS : PRINT INK 7; BRIGHT 1;AT 3.5; "LISTAGEM COMPLETA: PAUSE 124: CLS : 6 
TO 22 


| FICHA HIOs 


[MOME — 






e 


: - .- 
PP a O e o 


e e 
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EAR ME DDR DAS ND DN DIR DE DA NT DI A A AR DD DR DA DE DE A DM DD AS MA DA A TA DD A DK E AR 


O X SPECTRUM 
ss 48K 
Ir FOPFULAR COMPUTING 


E s K = 
Vol. vo Tiso 


MRE DIR NE DAR AR DAR TD DAR AM NR DA DA DA O RO DM TA ED DR RT DR TM DR DM DK DM E DD TA IN DA ND A DM DM A DA DM 


Fars CONSOGUIT 3 MBHXx1MO de rortuscso neste Jogos deve rilotar o 
Sei) 2V1380 O n315 naixro rossivel evitsrndo ss colisoes. 


ed ud 


PARA CONTROLAR O AVIÃO use ss teclas! 


ca 


> Á 
Ae 


- Koetsrdeor o movimento 


FP - Sutiir '» 


| - Descer 
X - Aumentar s velocidade 


à melhor rontuscao e 2828 Prontos» mass de certeza que e possivel 
fazer melhor, Exrorinmentoal! 


FARA PASSAR O PROGRAMAS 
Introduza o erroarama Perinciral e grave; SAVE "Firefox" LINE 1 


FARA DAR ENTRADA DO CODIGO MAQUINA 
Use o Programas 


10 CLEAR 65099 

20 LET 3=65100 

30 FOR m=i TO 114 

40 INFUT b 

50 FOKE ash » 
60 LET a=at+il 

70 NEXT n 

80 INFUT "Esta rronto rara Gravar? (9)";9g$ 

90 IF S4="" THEN GO TO 20 
100 SAVE "harne on.” CODE 45100,120 


"KUN" De entrada dos 120 butes 


NOTA: Os graficos rociem 
ser definidos com 
qualquer letra 
(letra igual rara 
Graficos iguais). 
EmxsiNas linhas 
170 CRAPHILS "A" e "EM 
17% CRAFHICS "C" 
2010 CRAPFHICO "OC" 
*013 GRAPHICS "A" e "EM 


mi 


ud =) 


4 


peduredorieouúnonweltne 


EMpuititemimt 


Lot 
a 
3-1 
Di 


HE -Jíniia 


Mm 
o 


Ltd 
DS mum= 


SrPUPIODDODONIDP PDS 


satrandadni-rr-r 


305300065 RyYUNO 
SUS05S5050+F 


oco Cite Din 


pe-j MP 


REL 


TA 
forum mao 


NO ao TUE 
cl 
E 


4 


EU 
QU TevaniyIPoOSTPES 


1 
3 
= 
E 
[a 
[ 
a É 
1 
E 
E 
é? 
a R 
À 
“ À 
5 E 


NUSS TNT E CHEGO 


fui TO e o aiiã 


Eu 


lá 


= 
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FIRE FOX 
2 PAPER Q: INK 7: CLS: BORDER 5 
3 CLEAR esgasg:. LET ss=8: LORL "OCODE salua 
4 GO TO cagú 
S LET s=t 
" LET fgy=7: LET fu=t 
a LET b=H: LET bu=H: LET puzt 
a FOR a=d TO 31: PRIHT AT GB.a;ia-IHT o carctackigo "o "o HEST a 
18 FOR n=16 TO 21: PRINT AT n,0; PAPER 3; INE 3;* 
"“: MEXT n 
11 CATA B,.1E,30, 60, IS, Le, 4d, Se 
lo CATA BG, IS, LS,.BB, SA, 16,40 ,53 
13 CATAR 8,16,340,60, 13,165.44, 32 
ape LET q=4 
LET f=B: LET x=180: LET d=7 
25 POR t=1088 TO à STEF -Z 
2a PRINT HA:;AT 1L,B;"Scoresz=";57;" “TAB 1S;"Timesr=",€5" E 
34 PRINT AT 21,11; INK a; PAPER S; IHVERSE L;"FIREFOAVSAT 192,11; INVERSE 9, "sc 


re “cs;AT 17,11; FLASH 1L;"Hi Score "; FLASH 9; INVERSE 1l;55 
49 IF cenz380 QE censgi THEM GO TO: 
43 IF n=8 THEM GO TO 68 
44 LET aq=HOT q 
45 PRINT AT r,c; OVER 15" " 

46 PRINT AT rocen; OVER 140" 

* SA LET c=c+n 
69 LET m=< INKETS="5"1- INKETESPr 

7H IF rem>21 QE remcga THEM GO TO 106 
72 IF POINT C<cxS+2,17S-r£B> AMD m=-1 THEM GO TO 140 
"3 JF m=0 THEN GO TO 108 
4 LET aq=MNOT q 
78 PRINT AT m,ce; OVER 15º * 

"S PRIHT AT remac; OVER 140" 
LET se=sc-lBXHcmo> 
- LET r=r+m 
ag IF r=g THEM LET sez=sc+riBbãc: GO TO 2900 

180 FOR z=1 TO 284 

181 IF INKEY$S<>"" THEN BEEP .Gi,2Zl-r 

128 READ m 

138 POKE 65190,n 

135 LET s=s+y é 

136 PRINT PAPER 3; INK 15AT 19,17;5 
144 LET 1=lJSk SSH 
168 LET q=4+C IH 491506=2532-0 IN Grade 
165 LET u=x+( IM GS2r7B=251L)-< IN ES2rs 
167 IF x<0 THEM LET x=0 
158 IF u<d THEN LET g=8 FOR nal: 

159 IF ATTR(y,x) 7 OR ATIR (y,x+l) 7 THEN LET k=12ET k=-k: BEEP .1S,mkk: MEXT nº GO 

TO J840 
17 PRINT AT 4,x; INK 7; BRIGHT 14º 0" 

172 IF n=7 THEM PREIHNTOoOJIHk 4:;HT LÉ =, 31; E 
l?3 FOR d=1i TO 2: NE&T d 

4 PRINT AT g,wm;" " 

175 NEXT z 

120 PRIHMT AT S5,2;"MIESAO COMPLETA: GA TO cas 


ir; 
Q 


4. 


Ps o 
EIS) 


“hy 
lago 


e en eis epa se aid e 


sussa "uõíõízõmãmãõãõÍB[uí“õãííãíãÃã"sõíõã82—2õãõãÃõ020º00õÕõ0oe.. 


“, 
1! 


oa SS sm 


EM if do fy 


UA 
ir 
=a 


t 
Ds 


! 


MO Co tw wo o 


Et 
[eloá 
LH 


3, le, 
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LET l=UEk 23246 

POKE 2367 DS. wu+rgks 

IF SCREENS crél,co=" " THEN LET mai: GO TO 74 

HEXKT + 

Cat TI Cat4tIEa 

RESTORE Gl TO 106 

FOR kE=iSk "a" TO USR "a"-j: READ a: POKE k,a: NET E 
LET v=PEEK 23675 

RETURN 


GRITA Laldadododsdado Dado Dodadadadada bordado Lat, DA, 
11,420, 9,3,9,8,3,9,9,8 


e ! ou 


1,6,7,8,9,10,11,12,13,14, 


1iBAZ OVER O 
ligas LET 1=1 

1887 PRINT &B;AT 4,0; INK S;!==000DanDialcnnan nn " 

18018 DATA 9,9,9,9,9,9,9,9,10,10,11,11,10,9,8,7,6,5,32,2,2,3,4,3,1,2,3,4,5,6,7,8 
1811 LET 1=NOT V: IF 1 THEM GO TO 1628 9 
1815 PLOT B,c: DRAUN G,E,PI 

1816 PLOT 255,c: DRAW G,E,-FI 

INZO DATA 7,6,8,4,3,2,1,1,1,1,1,1,2,2,2,2,2,3,94,4,3,3,8,3,3,4,4,5,5,5,85,8,5;5AM 
S,0,9,9,9,6,4,6 ,6,46 ,6, E, P,P,P,P.P 

1821 FOR d=i TO 2+sc/5ay 

1823 PRIHT AT 2Z1-INT cego RNDE2S+L "o ": MEXTOO 

1827 HEXZT c 

lyZa OVER 1: FAPER & 

OS? DRTA 9,97,9,9,9,9,9,10,11,12, 19,144, 15,15, 15, 15,14, 14,15. 15, 12.12, 21,14,114,8 


54 PE art PR 4,5, 6, 


ET: DPRTA 9,11,13,153,16,16,16,15,14,14514,14,14,14,14,14,16,16,14,12,11:9,7,5; 
À. lo, Ss Bads Das Pa ld 

1256 PRI Assess); isl sl; Ã,dubsy De, IA IEAB, IS. IE, d6 4, 15,18, 15,145, EM 

Do da bs dog dd a ba dos dos bs br As ÃO, des TD, E, Tas srs sds di rdhs Ludo Dodo 

Es 5 

DErO QRMIN Dalsladaoladstodsds1,2,0,8;1 PER E qe TR DO APS q NT SRS CURE DER O 

etatdta RESTORE ZA 

cglo CHATA ElH GBA, EIH GAPEILGAA, ETH GRELIGEA,ETIH GALLILIB,EBIH GALLLIIG, ELH |) 
11114114, BIH GIlLBIGLIL ETA gaaalaga. FOR ras TOS RERD ro POKE USP" “em ro NE 

a o DATA EIH gg, EIH gABBS, BIN 11110006. EltH IlisitgaE,ETH LILLLILILL, BETE 224 111108 
SOLS-DATA EIM BG. EIH GABGA.BIH 111106068. FIM 11111026, KIM 11111114, EIH GRalLILIL,B 
H Gg, ETH GERAL ILL: FOR n=aT0 7:READ r:POKE USE “ "+m,r: NEXT n 

2gBlé DATA ElH GB, EIH GBA, Elt ga, EIHM a, ETA HA A ASR EIHM 11111144, EThH 11111111,BH 
gaga: FOR m= TO FT: REMO rr: POKE USÊêo! "em, HESST 

egeti KRESTORE 

etica CLS 

gg INPUT “Esta cronto? CEM s& 

eita (GO TI q 

SEMA RETIRE INPUT "úutra tentativar caco s& 

Sl IF s>35 THEM LET sa=s 

Solo Cls 

sgey PRIMT AT 17,28;535 

sas INPUT "Mens dom Cats TE cMgb="=20 fo ua="D" THEM It 

SB54 TF sEclo="n" DR sECclo="Hº THEH STOP 

Sat Li TO q 

SsBaa FOR ca TO PPPP LET I=1+0IHEETSLENMO: PRINT ATE, RB; HEST o 


L7 


APLICAÇÕES DA INSIRUÇÃO DRANW 


Tedas as facilidades de utilização da instruçãe “DRAW” sãe descritas ne eapítule 
17 de ZX SPECTRUM BASIC PROGRAMING MANUAL, 


Ne entante, e demínie deste cemande centinua a faltar a uma bea parte des nesses 
leiteres, Deste mede, e cem a ideia de es ajudar, reselvemes fazer uma recelha de 


alguns pregramas simples e que ilustram bem e apreveitamente deste cemando, 


A ferma básica: 

DRAW x,y 
ende x e y sãe mevimentes relatives a partir de uma pesiçãe actual de pente de tra 
çade de gráfice (pletting pesitien). 


A variante; 

DRAW x,y,a 
em que, para além des anterieres (x,y), existe ainda e angule “a” em radianes, re 
psesentative de angule que a linha fará a mever-se desde a pesiçãe inicial, 


Figura 1 
Nãe necessita de pregrama para a csnseguir. Bastará a entrada directa des ceman- 
des “PLOT” e “DRAW” assinalades sebre a figura. 


Figura 2 


Depeis de passar e pregrama ; “run”; dê entrada des valeres de x, y e angule (A). 


Figuras 3 e 4 
De mesme mede, dê entrada des valeres assinalades sebre as respectivas figuras. 


Per ser em BASIC, o pregrama permite a ebservaçãe de traçade das figuras de um me 
as bastante lente. Pede ainda fazer-se BREAK e medificar e pregrama facilmente in- 
treduzinde uma neva linha: 

69 LET CaG=-2m PIXINT (C/(2mPI)) 


Para melher cempreender e pregrama, experimente alterar es valeres de x, y e de 


angule, 


(In. POPULAR COMPUTING) 
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2AZPLOT Fãs do 

24 INPUT "valor de x "ix: PREIHT Cx “as PLOT 50,950 

49 TNEUT "valor de a "ig: PEIHNT tar LBpta = Cotas Em é 

sa IMPUT "Angulo “;g: PRINT TAB 28; "Angulo = "59 DRAW 50,50 ,9999 
PB LET z=0ES CCRHES z+BES a2/5IH Cao/22) 

a LET Arcs=4KHINT CIHT CRES caftSOR ZH, 35//B)+d 

qq IF Brmcs>2s2 THEM LET arcs=2Ie 

184 PRIHT º"RECO = "EBRCS 

119 LET w=SIH Cat ZEarcs))/5IM CO 2) 

128 LET ma=PEEK 23673 


isB LET sC=PEEK 2I6r. 
144 LET F=,SKCa-a/arcs) 
150 LET o dera Pd & 





1660 LET me=4kKUuK0OS F-xAUKSIH F Fig 1 
17?B LET N3=COS CQ/Arcs ) 

187] LET má=SIM Cgo/arcs) K=80 y=80 
21g LET mBzmd+ma A=9999 Ar= 252 


22 LET sc=sc+ml PIO 


230 LET x=sc-PEEK 23677 Pior A 
240 LET u=mB-PEEK 23678 rá Ne 

259 GO SUB SLB Of a 
268 LET arcs=arcs-l: IF arcs=sã THEM STOP ás jo 


era LET mmli=ml 

284 LET mi=mikmI-mBkma 

298 LET miz=mmi EmSAMZENS Fig 2 
384 GO TO 210 

Zs19 LET plotx=PEEK 23677: LET plotu=PEEK 23678 


520 LET dx=SGN x: LET du=SGH X=.045  yO.. 
530 LET x=ABS x: LET u=ABS q A=395.84165 Ar=252 
540 IF x>=y THEM GO TO 588 em 

SSQ LET l=x: LET b=y pe liam 

S60 LET ddx=8: LET dduzdu Pd “a 
Ss7a GO TO 618 Ed a 
s89 IF x+y= THEM STOP a Ê, 
599 LET l=y: LET b=x q ; 
690 LET ddxadx: LET dduy=8 ' 

618 LET h=b aa 
620 LET i=INT cb-2) Fig 3 
6320 FOR n=b TO 1 STEP -1 

640 LET iz=i+l mão ciiá 


6S5aA IF i<h THEM GO TO 698 

G6B LET i=i-h 

ErB LET ix=dx: LET iu=da 

ssa GO TO VBA 

69 LET ix=dd=: LET ig=ddy 

"AB LET plotu=plotau+iy 

718 IF plotu<a OR plotu>1l75 THEN STOP 
fed LET plotx=plotu+ix 

730 IF plotx:8 OR plotx>255 THEN STOP 
"49 PLOT plot, plot 


A=720 Ar=252 





ro HEST nm 
"Ed RETIRA 


q as 


e 


a ma A o ms ————— —— — a eme 
* 
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PROGRAMAS PRATLEOS E M . Ob Lo 


TOS SOSS SOS SOdS SUoS USOS as0S SOUU 090 VOUS GOOO GUOS GUGA GOLS GUCU 4000 4000 aSHO 0000 GOSO GSUD cubo GOCP nos GU0O 009 006 «STD aeb UOL ROS 000S COLO 0900 000 GOLS COS COCO 0008 CULS 6006 0900 COPO 600% CO0O GOLS GULS CUL CHAD GUS COLS GUUU CUUU COLD COCO COCO COCO GUTO COCO GUTO SUCO GUCS 
os US OVO GOIS GUIS VOIP TUTO GUIS GOA USO GDOS 0000 0000 0000 OL 0005 G00S 0000 GO0O 0004 0006 GUHO 0000 0040 6005 0005 6000 NAS CGU 0000 0000 GOUS 0USS 0005 0009 OU GOGS 000O 0004 TUAS OCO G00S 000S COUS GHGS GUUS DOGS SUOS CHOS LEVO 6005 G00S GOUS GOOS GUUS UUOS SOSO SUSS SUSS SOME GDUS GUOS 


MANU TINA PARA Q Zz X SPL LIT NUR 


PARTE 1 


JOAQUIM ALEUQUERQUE MOURA RELVAS 


— uu us «sua eus «eus ceu vous ceu 04 UU TEUS UU RLL UCS US UU AUS ELE OU TULU OUS SS USO TOSA OUT UU UU Ud soUs cota voos 


Inicis-seyr com este numero do boletim do CLUBE Z80, uma serie de 
8rticgoss supordinsds 30 titulo em erigrsfes que se suroe terem 
interesse rara os utilizadores do ZX SPECTRUM, Ja que se revelaram 
de certa utilidade rara o seu gutor. 

Comeca-se essa serie coma prerte LI, que trata de dois Programss em 
codigo maquinas muito simeless que permitem resceectivamente as 
trarsferercias de imecem: video -> memoria e memoria > videos, 
Exprlica-se sirdza como proceder a. sus Gcravacao em cassette e a sua 
utilizacaos. 

Terciorna-se srresentar nos numeros seguirites outros artigos 
subordinados 30 mesmo titulos 

O sutor ercontra-se a disrosicao eara esclarecer quaisquer duvidas 
e resronder 3a quaisquer cergurtas dos leitores; que deverao ro-las 
atraves do Prrocesso que e habitusl no CLUEE 780. 


PARTE IT 


MEMORIZAÇÃO DA IMAGEM DO VIDEO 


Entre os utilizadores do ZX SPECTRUM e frequente verificar-se o 
desedo de transferirs rara uma determinada zona da memoria RAM» 
MI IMBGEM Presente no sesrelho de TV, com o fim de 2 registar em 
cassette rara futura utilizacao, Essa imagem tanto rode resultar 
de um determinado Joços do aerado do utilizador» como da criscao 
artistica do Perorrio utilizador. 

À concercao de um programa em lingusgem Assemblys ou em codigo 
MBQUIN3s PBra armazenar a imsgem do video na memoriss e 
extraordirnarismente simples no caso do ZX SFECTKUM, Ássimy Por 
exemplos O seguinte eroaramat 


Ref. Erndereco Instrucao (fssemblu) Instrucao (Hexad.) 
1 EA4SO LDEC>» 1E00 01 00 1E 

Pa E AME: LODHLs 4000 21 00 40 

3 E AME. LDDE> CF48 11 48 CF 

4 E AI LDIK ED EO 

“ EASSI RE T 9 


e TD em ce e e 


.— e us... e a me e e e me 
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constituido For cinco irnstrucoes arenas» rcermite transferir a 
imagem do video Fara 3s roOsSicoes de memoris com os enderecos 
compreendidos entre S9976=zEA48 (MH) é s9987=EAS3 (MH), validos Para 
o SFECTEKUM de 48K RAM. 

à instrucao essencial e s instrucao a (<LDIK) que determina 3 
transferencia do bute armazenado nas eosicao de memorias enderecads 
velo rar de registos HL para 8 rosicao de memor is enderecada prelo 
ear de registos DE» determina em seguida O decremento dos Pares de 
registos HL» DE e EC e determina 3 rereticao destas orer acoes ate 
que o conteudo do F8r EC seja iguBl 3 zeros 

à instrucao 1 determina a carca do Far EC com O numero de butes 3 
trarisferir» que rerresents: no caso da memoria de video do 
SPECTRUM» um total de 6912 butes = 1E00 (HD. 

A instrucao Z determina a cares do Far HL com o endereco da 
erimeira posicao da memoria de video do SPECTRUM que e 16384 = 
4000 <H)D. 

A instrucso 3 determina a cerca do Par DE com o endereco da 
erimeira rosicao da zona ds memoria onde se desejzs armazensr 3 
morsagem. Escolheu-se arbitrariamente O endereco 59064 = cr4s (<H)r» 
que so existe no SPECTRUM de 48K de RAM. Os leitores que disrornham 
de um SPECTRUM de 16 de RAM deverazo modificar este enderecos 
escolhendo» de preferencias um que se situe acima de 30000. 
Finslmenter a irnstrucao E determina o regresso do cortrolo 30 
EASIC. Lembra-se que € vantajoso considerar» no SPECTRUM» os 
eroGgramas em codigo MEBQGUirnZS COMO sub-rotiras BASIC. 

Fara armezenar na memoria o errosrams de transferencia de iMBGEM 
atras referidos rode utilizar-se o Frocrama EASIC ilustrado na 


figura ls. 


10 FOR x = 59976 TO 59987 

“0 READ bute? FOKE x» Dute 

30 NEXT x 

ay DATA 1: Ds Z7» 23, 0» 649 17» 7%» 207, 237, 1769 201 


E iguslmente simples 3 concercau de um ErOGraMm3 FITES transferir» 
rara o videos 8 LMEBGEM armazenada Por MeLO dO FrOGTIBMB anterior 
Tal er POT esempejLOs O seguinte LroOGramBs 


Ref.  Endereco Instrucao (Assemb le) Instrucao (Hexade) 
1 ESTA LDEC + 1800 01 00 1E 
po RA LDHL» CF4s 21 48 CF 
3 ESSA LDDE» 4000 11 00 46 
4 EAD LDILE ED EO 
pi ERP RE T lo 


que permite recurersr HO Video E IMBGem armazenadas eelo proGTEMB 


anterior 
Para grmazenar na MeMOrILES O Segundo FroGrams code utilizar-se O 


erocrameo EASILL ilustrado ne figura Zoe 
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FOR =» = 59988 TO 59999 
READ byte?! FOKE xs buteo 
NEXT x 


DATA 1, 0, 27, 33, 72, 207, 17, 0, 64, 297, 176, 201 


FiGe.4 


Derois de devidamente ernssisados» o conjunto dos dois eroaramas 
descritos rodem ser cravados em cassettas» corsurntamente com uma 
evertusl imagem: usando sz instrucaot! 


SAVE “NOME DO CONJUNTO!» 
CODE 33064, 6936 


Fara utilizar o cordunto dos dois eroceramas te everntuslmente da 
imagem) gravados em cassettes carregar; no SFECTRUM, o cordunto 
Com o auxilio da inrnstrucao:! 


Fara a transferencia memoria > video utilizar a instrucaos 


LOAD "NOME DO CONJUNTO" CODE 


+ 


RANDOMIZE USK 59988 


Fara a transferencia video > memorias utilizar 32 instrucaos 


AP 
+ 


RANDOMIZE USK 59976 


JOARGUIM ALBUQUERQUE DE MOURA RELVAS* 
socio do CLUEE Z80 


Vila Nove de CGais» 83.08.30 


É professor na Faculdade de Ciencias e Tecnologia da Universidade de 
Coimbra e dedica-se há mais de 20 anos à divulgação e ensino das Téc 
nicas Digitaiso Autor dos lívros INTRODUÇÃO AOS MICROCOMPUTADORES e 
INIRODUÇÃO À ELECTRÓNICA DIGITAL, o seu prestígio é inegável, Por is 
so - e sem desprimor por todos os outros colaboradores do Clube - 
congratulamo=nos com o seu apoio e participação no CLUBE Z80, 





es. Tr ÃO TO E 11 ** “op” * MU 


pe 1 SS o PI 
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-—- ... e sude um MU CET UU TOR UU USA quR tuas aus .- . e . 
. OMS US TEST CUUA USA OU TESS TESE UNA URU SUNT URU EIS TEUS cet tema uam uma ... e... es 


nx mm PARTE L 


FERNANDO FRECES 


es al eUE TO USE TULS USA TEU TUUM TT TUA TUM nem vom uma 


PROGRAMAS MONITORES 


Quer pers o estudo das potencialidades da maguinas quer rara obter 


um determinado rerdimento em LeMPO E qualidsde qusngo se Ferersra a 
aus lauer gzrogramas verifica-se que s necessidsde de ter no nosso Y 


sSTRULVO de arsvacoes certos tiros de erocramas monitoress carazes 


do eviter corsultas morosas de manuziss Pesquisas de dagos 
dispersos» calculos» etc, 


O nosso erimeiro prosrama monitor destina-se 3 descodificscao 
rapido dum codigo mBquirs que e convertido nas respectivas 
instrucoes da lircuscem ASSEMELY. 

Muitos sutores de livros e revistas da esrecialidader ao 
imerimirom uma rotinas Ou erocrama em codigo maquinas nao 
trancrevem as suas mmemonicsss o que obriga os Interessados 3 
lorgas consultas» forcanrndo-os ror vezes a desistir de tal tarefa. 
O leitor rrovavelmente Ja sabe que o microrrocessador Z80A» o 
“corebro” do SFECTEKUM, nao enterde directamente as ralavras EASIC 
tais como PRINT» IF, TAE> etc, Em lugar disso ele obedece 
unicamente a uma linguagem chamada codico maquina. às loraas 
instrucoes da KOM SINCLÁIE» sor exemplos sao escritas nesse codigo 
e consistem rmuma sequencia enorme (l6 kbutes) de numeros inteiros» 
CuJo maior nao excede Z335. 


A funcao dum proerama DESASSEMELER e converter essa sequencia de E) 


numeros noutra de mais facil comereersao (alfarumericos indicados 
relo fabricante)» as mmemonicas do AÁSSEMELER,. 

O leitor pode ver exenprlos dessas mnemonicas olhando as racina 183 
(?) do mamusl do SPECTRUM. 

A erimeira coluna lista os numeros inteiros de 0 a 255 e a quarta 
coluna e denominada Z80 Assembiu listardo a mmnemonica de cada 
inteiro. For exemplo a mmemorics (NOF) e dadas prelo codigo maquina 
0 e corresgonde a uma irnstrucao de nao fazer coisa algumas o que E 
rara o Z80 significa ficar parado a esrera de algo. 

Outra mmemoriica simeles INC E (CM 4) da instrucoes 30 Z80 rara 
incrementar o registo b uma vez (somar zo valor ai euardado o 
rumero 1). 

Fortarnto um programa DISASSEMELER rrecisa de interrretar 
correctamente 3 enorme complexidade deste ASSEMELER que tem cerca 
de 440 irmnstrucoes diferentes e nem todas com a simplicidade das 
instrucoes exemelificadas (NOF e INC E) que mobilizam asreras 1 
bute. Outrasys como LD HLy NN ou instrucoes prrefixadas pars os 


143 
p Ros 
Pad 
St 


E LIT 


ET 


or 
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registos IY ou IX rodem mobilizar 2Z, 3 ou 4 butes, 

Outro tiro de instrucoes requer mais de um numero de ordem inicial 
Que sao os cociãos 203, 221, 297 e 253 listados rela sexta coluria 
no citado marual, 


DETALHES DO FROGRAMA 


O erograma divide-se em duas partes. à erimeira (linhas 10 a 1340) 
contem as tabuas Z& e Y$, bem como os Breontadores F e Q, 

A segunda (linhas 3000 sa 9010) e o descodificador em si. 

As duas partes do rrocerama ocupam uma sres importante da memoria 
(cerca de léá Kbutes) tornando-se necessario numa maquina de 
caracidade reduzidas (o caso do SFECTRUM de iék) fazer uma KAMTOF 
mesmo no toro da memorias com CLEAR 32767. 

Uma vez escritos faz-se correr o prroerama rara que todas as 


a aa it a RO o nilia az rar Assada ca: 


e di ce a O ce o 


é fi 


variaveis sejam tratadas relo comeutador. 
O rrograma na rarte visusl faz a listagem de todas as mnemonicas e 
derois aguarda instrucoes,. Nessa fase rara desocurar memoriaszy rode 
sraasr todas ss linhas entre 10 e 1340 (Circlusive) terdo o cuidado 
de mao voltar a tocar nas teclas KUN ou CLEAR. De seguida pode 
Gravar o eroarama entrando com : 
SAVE "DISASSEME" LINHA 3000 é 
Todas as vezes que voltar a meter o programa na maquinas ele ira 
comecar sobre a linha 3000, recordando todas as variaveis e 
funcoes atribuidas rela Primeiras rarte do programa aque ) 
enteriormente foi aracsados. À : 
E 
: 
PROGRAMA DE INTRODUÇÃO 
BORDER 1: PAPER 1: INK 7: CLS 
PRINT AT 14,6; FLASH 1;" DESLIGUE O GRAVADOR ". PALSE 2z0m: FLASH B: CLS 
PRINT AT 3,1; PAPER 3; INK 1;" CESHSSEMBLER ” 
PRINT BT E, 1:"PROGRAMRA 1 — Listagem do procra ma completo, "oo Leza resumo tE 
o do programa no texto ESPAÇO SPECTEUIM, ” 
PRINT AT 12, 1: "PROGRAMA 2 —- CLOBD Peeveaçroo fi proararma arma na linha soOnEk, 
a primeira parte ia memori zada e co bazic apagado." " IMPORTANTE COO — mam 


prima RUM ou CLEAR." 


(5, 


Est4 


INPUT "Indique qual croagrama eretende” (Ci ou ZgN"im 
CLS : PRINT AT 14,6; FLASH 1;" LIGUE O GRAVADOR ": PALSE S0A: FLA 


TE 
- 


Hg: 


BORDER S: LORD ""SCREEHE : PRINT AT 5,8; 


IF x=1 THEM GO TO 166 

EORDER 1: LOAD "2" 

STOP 

BORDER &: PAPER E. IME 1. LORD PI" 


48 
Ee. 
ee 


7 
(- 
vm 





| 
| 
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S Ls LIST STOP 

ly REM Menmonicas do ZSOA - Programa Dlesassembler, 

lgo DIM pr l2B) 

li CIM zEcsia? 

iz CIMoaqcõs) 

130 DIM JC IO9Z? 

o DRM Ore, ache. ,"ina De',"ime b',"dee b","“Id BsN",“Plca","ex E 
AF IDA ALE, ADE, “dee bc” 

sol. DATA “ing cº,ºdec €º,"ld c;N","rrçca”, “djna DIS"."id de,NN",“Id tde),a”,"“im 
de",'inc Sº,"des dº,ºld dN","cla","jr DIS","ada hi,de*,"id a,í<de)”, "dec de",9 
e e, dec wulid em rra.Jr nz,015”, "VA RANNP,PO MOS bl, ine bi"."inael 
"a RE TP 

ve DATA CLS NNP,ºdaa",” Jr Z,DIS”,"ado bL,BLº,PLd BLCÇNNS, “dec Bi”,"ine 1º, 
Ec 1º,êid ANO, "CRLO," dr ne,DISP, “Cd se.NN”,PLdeNND. a”, "ineo sp", "Pine Chi", "dged 


cla 
SAS 
Sig 
“pet 
ns é 


Ea 


12 


“+ O Si NC, Ceer","sr G,DIS","add hi,sPp","LA &,CNN9 
DRT “des se”,"ínc 4º*,"dec a","id aN”, "CCP" 
DATA “ret nz","pop bcº."jp nz,NHº."jp NN","call 
A j “prot da : “pet! ; " ip AR HI! R TRT , " =al 1 +”, HRS , “o al 1 [08 O E A " ado a pda ; “pet p= , “pot 

», POP de”," JP ne,NNº,"out (N),.a”,"cali nc,NN", "push de" 

DATA “au Nº, “rt 16" ,ºpret Ss, º*en";" jp Cc, Nt Rs a AN s“Ccail PAT 


” 


TZ, e 4 “push sd seia s “add a s Mo, 


aN!,"rst 24", "ret po","pop 8 a po,NN", "ex (EP Pariho a GATA po,NN", "push nl 
“and Nº,ºPat Se”, 


“ret pe”,"jp Cho" 


DATA “jp pe,MN", "ex de,hl", "call pe,NHP, "o Pxor Nº, "ret 40", "ret p","pop aí 


"jp poNNºo "di", "call poNNº, "push af","or Nº, “ret 48","ret md se, bl, "JP m 


ot: m" à od a = ba: a "Co Ne. “pet se" 
seo VLRIRN Court C62,0",“sbc nt, be”, "Id <NNI, De”, "neo" ,"retm" "im Dº;"td 4,a","ia 
Cate" sêQu (cecrec",!ado nisde"P;*id DEN Ppatit, PM. "aa sºn deco", "a 

t Cc), d","sbc hl, de”, “id <NN>, de” 

521 DATA dad Ed 1”. “ta 4,1"," Em eres”, "out cer e”, "age ALde”, "LO de,cHNS", 
ea a * 4 Mm E 4" VO O ada Rad Maltez”, "QUE Cet”, "anBe Miss. IO ER Ra TR 
PRE «CIA 1,467", "OUL Ce”, "ade RIAL". BIC 

seo CATA O ig PR DURA RE da 462" ;º*, "abc pise". "id CNN 6 O," aa 
atc>)","out Cec2,a","ade hl,sp"”,"id sp.çNN>" 

SS DATA Adir, ccpil,cini","outil, cr, or, ve, vn, MTdd", “epde, “ind”, “quide, tea, UR! 
0“. (OS PP, CRP"; LM”, ORIPe”, a a O di RM. LTC”; “aLdpn” 


LUG 
1310 
lsZo 
jJE3A 
1633 
1349 
1950 
1860 
iiga 
lily 


» dE 
1138 
1148 
PES Lis 
l2iy 
1220 
l238 
LH 


4 “CS (a 
À dt) 


LET p(1)=3 

LET z$(1 TO 3)5»="nop" , 
FOR i=i TO 63 
READ 1i$: IF i<ig THEN PRINT 
IF iz=10 THEN PRINT” 
LET p<i+rio=pl i)+LEM ig 
LET z$cpcid+i TO pl<i+rioo=is 

NEXT à 

FOR i=i92 TO 233 

Marto 40: PREMI * Cl açusvça"s LM 
LET pSi-lero=pli-128)+LEN ig 

LET z$cpci-l2S2M1 TO pCci-l2rPo)zigs 
HEXMT i 

LET qc1)=8 

LET vi TO B8)="in b,ic>" 
FOR i=z63 TO 123 

FRERDO ig: PRINT ED “S4404a 
LET qci-gali=za, i-ESI+LEN ig 
LET uBcaci-s4+1 TO qci-EBI=is 


A Pidslacsoose";is 


PEA PERES RARA. 


cemrHERT 1 
Sit FOR i=leá TO 137 
vio Mer 4H FRINT CEDO Pad: san amm 1 


,- 
— 


LET qri-9920=q" i-100B)+L EM ig 
LET sEcaçi-18B0)2+1 TO qcçi-aSPi=ig 


E 


FREE RA EE 

REM Esta seccao e o desassembler 

Bj 

PRIHT THE 14;"Desazsembler" 

PRIMT 4," Indique o primeiros oultimo endereco." 
INPUT sa,sf 


Cio xH* tw 
O é ED 


= 
e 


“= 
leal 
o 


“=, 
sado” 


| bo 


1% 
nd 
RAR 


O to QI id ta GO fy + Pára rã pá pa ca 


E 1 
Meda roma HW toromaGoT 


St 


PRIME ga” dei quer obter uma copia pela"; “"printer Pºottn Prima 


ainstnagã* 


Tt 


3060 INPUT cs: CLS: LET c$ = CHR$ ( CODE cê -32 x 
y (c8> “£")): IF c8<>”y” AND c8<> "N” THEN 
BEEP .2,25: GO TO 3060 


$1% ET i=sa 

S11. TLET j=PEEK i 

Sl2B PRINT i;TAB T;: IF có="4" THEM LPRINT isTRE FT; 

S158 LET vub="HL" 

Sid GO TO 3Z2B0+LZBBXKC j=203 +11 209% j=227 1+2200%€C j=22 ISABEL J=253) 

s200 IF j<28 THEM GO TO 3220 

2210 PRINT "nop": IF cs="4" THEM LPRINT 'nop" 

dec) GO TO S880 

3230 IF j>63 AND j<X192 THEH GO TO 2488 

dedo LET t=j-128% j>191) 

3240 FOR k=pcto+] TO pót+io 

ses) IF zBck TO k+19="NH" THEN GO TO 888 

3260 IF zEcko="Hº THEM GO TO 3988 

serB IF zéók TO k+2)="DIS" THEN GO TO 4g9g 

s260 IF z$Ck TO k+1o="h1" AND vEs>"HL"” THEN GO TO s10g 

Ss00) PRINT z8ck>;: IF cá="4y" THEM LPRINT z&ck); 

Sal NEXT k 

se PRINT o: IF cê="u" THEH LPRINT 

23380 GO TO a00A 

ag DATA ss : É Pé pi e", Dé o ie ad Ti y és H1 ” : "a 

J40.º IF j<>118 THEN GO TO 3418 

2406 PRINT “halt": IF có="y" THEN LPRINT "halt" 

a407 GO TO 2086 

3410 IF j>127 THEM GO TO 3534 

s420 LET ib="ld" 

34380 RESTORE 3400 

3440 FOR k=1 TO j/8-7 á 

3430 READ J$ 

468 HEXT k 

s4"A RESTORE J4gg 

s420 FOR k=1 TO j+i-BKIHT CC joBo 

490 READ kk 

329880 MEXT k 

2910 PRINT iG; MBPS: IF cêz="u" THEN LPRINT 3" "2508 ",9:n0 

s5928) 50 TO aBHA 

duro DATA “add”, "ade", "sub", "sbec","and","xor","or", "cp" 
SS FPESTORE DS 

ia FOR k=1 TO jo3-15 

5680 READ ig 

Srt MEXT k 

sema IF ixlgsd OR cCivisi AMO j<163) THEM GO TO F4ua 

BI FESTORE Dc 

00 POR k=i TO a+ri-SEIHT 


REM ERRA A ooo ooo e OE 


IF sat OR sfiza OR szat>IHT za OR sf<2zINT =f THEM BEEP .2,24: GO TO 38: 
. 5 


25 


o 
A 
datas, 
ss «cu dad a a a og AA o A o Tr. , 


dt) 


f 
' 
4 
) 
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REL 1% 
HEST k 
a PRIMT 


H q +-+ 
E E 


f="uy" THEM LPRINT AS; "548 


Joá 
ei 
a 
+= 
mn 
E 


“eh 


46; GO TO AGA 
ga LET t=PEEE Citi+2SEAPEEL Ciro 
A PRINT €;: JE gaa"“uy" THEM LPRIMT b; 


al 


| 


LET i=xi+r& 
LET k=k+l 


NY 


5 Go TO S31m 
“agm LET t=PEER ci+io 
ag PRIHT t:: IF cá="u" THEM LPEIHT E; 


> ES À i Fê Li Rat toi As Dl [5 Res Quais 
a Ss ES OD tó OD DO DO dE CO DO 4) cd = 


Mkt edaInmregofar So DdumN: 


à LET 1=1+H1 
E Go TO SSH 
“BBB LET t=PEEÉkR ci+rlo-gSEACPEEK ci+loszigro 
agia PRIHT t;: IF có="9" THEH LPREIHT t; 
agr LET i=1+1 
as LET k=k+3 
4 GO TO SSl0 
d PRINT uB;: IF cã="4" THEH LPEIHT ug; 


LET k=k+1 

IF asck+lo<r"o" OR j=232 THEM GO TO S216 
LET i=i+1 

PRINT "+" PEEK i; 

GO TO 3318 

LET i=ziti+ use" HL!) 

4519 LET Jj=PEEK i 

4520 IF j>63 THEN GÓ TO 4768 

4538 IF j<4g8 OR 41555 THEM GO TO 4554 


- 4 


a jd pé quê qui qua GO 
E x E 


.— 
4 


a dh E 
Gas am 


fã 
aq 
PU 


4540 PRIMT "Ho op code": IF cê="4" THEN LPRIMT "Ho cp code” 


S3598 GQ TO aHBB 
“SA DATA ATE, Pre, PL; DO PR os Ra e. “SPA 
4370 RESTORE 4366 

4584 FOR k=8 TO 4/8 

4928 RERBD 1% 

608 HEZT k 

4618 RESTURE S4BA 

4620 FOR k=8 TO jJj-SHINT C9)/8) 

46290 RERD JE 

as4a MEXT k 

4845 IF jós"chlo" AND vusc>"HL" THEM GO SUB co 
4658 PRINT iB;" "446: IF có="y" THEN LPRINT à 
4668 GO TO Fa08 

ara DATA dé E An “pes, “set” 

4718 RESTORE 4708 

4720-FOR k=1 TO jc649 

drag KREBND 15 

ars HEST k 

ara RESTORE Sd 

46 FOR k=8 TO j-BAIHT cc domo 

arrã READ ig 

arg IF ie="Chlo” AND ue 2"HL” THEN O GO SUE aaa 
aray MET ok 

4800 LET t=IHT CicBo-BEAIHT é 


ERA 
a. 


4 


od 


4 
4814 PRINT iG; Mt dB TF céê=" AND o" THEM LPEIHT iB:" 


gg GO TO ag 
Boy LET i=i+1 
lg LET i=PEEK à 


ti 
E a 


a 


p' 


RR E 


scr s12S3AND j4124THEMN GO TO SIGg 

SE IF iziS9 AND ij<isr THEM GO TO saam 
SS GO TO d4S4A 

Sly LET i=j-54 

sldS IF iz THEM OGO TO Sgam 

aliy IF qrisdri=aci+t> THEN GO TO gs4A 
Sly FOR t=zquj+l TO quiri; 

SIS) IP oggik TO k+Lo="NNO THEM GO TO sS2Ha 
SiS PRIMT usck os IF cé="9" THEM LEPRIHT ygck o; 
S16M HEXT É 

31565 PRIMT IF cé="u4" THEN LPFEIHT 

Sivãy GO TO Sauma 

Jetitá LET t=PEEk Ci+rlo+2S6GAPEEKE Ci+rzo 

sely PRINT ti: IF cé="u" THEH LPPIHT +; 
dec LET izi+2 

dos LET k=bk+1 

Sed alt TO SLEM 


E 


Mp - 
o a Ss 


fd 
o 


fr o 
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LET j=)-15a 

IF prsásti=pcj+i> THEN GO 
PRINT gECcpc jo+i TO prj+i73: 
lat) TO GB888 

PRIMT aci TO 37: 
GO TO GH8A 

CET wup="im" 

LET i=zi+rl 

LET i=PEEK à 

GO TO 3148 

LET ut= " Lia” 

GO TO ss1B 

IF PEEK ci-l)=253 OR PEEK ci-li=221 THEN 


TO s4I4H 


IF cê="4" THEH LPRINT qgcpcj2i TO pcj+12) 


IF c&="u”M THEH LPRIMT ugci TO &º 


GO TO 8826 


LET iS="C"+yB+"+"+STRS PEEK cioli+tor 
RETURN 

LET iz=i+l 

IF i<=sf THEN GO TO gia 


O PROGRAMA DESASSEMBLER GRAVADO EM 
CASSETE ESTÁ DISPONÍVEL PARA OS S0- 
CIOS. o 


PREÇO: 400800 (incluindo portes de 
correio) 
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RIR RAR A A A AR A RR A A A A A A RR A A CD DK DK 


METODO TRAFEZOIDAL Autor: Dr. AURELIO FERNANDES 
q SESS qem ques SaMS coro core case asso cuco caro caes cure coro cees case ques sem âveiro 


DRA RR AR AR AR A RR A A A A A DD DD HC SK DK 


ha 


= /2 


Dada 3 funcao f(x)= 


| rá 
Mm 


calcule o seu integral no intervalo [0,2] , 
dividindo-o em 10 subintervalos» empregando! 


38) o metodo trarezoidal 
Db) o metodo de Simesor 


Comeare os resultados e Justifique-os, 


8 REM TEST EM SINCLAIR Zx81 COM IMPRESSORA SEIKOSHA 
10 FRINT "QUAL O VALOR DA AEBCISSA INICIAL DO INTERVALO?" 
20 INPUT À 
30 FRINT à 
40 FRINT "QUAL O VALOR DA AECISSA FINAL DO INTERVALO?" 
30 INPUT E 
60 FRINT E 
70 FRINT "QUAL O NUMERO DE SUEINTERVALOS?" 

80 INPUT H 

20 FRINT H 

100 LET K=(E-â)/2H 

110 LET 0=0 

120 LET X=á 

130 COSUE 1000 

140 LET Q=Y+0Q 

1390 LET X=X+kK 

160 COSUE 1000 ; 
200 LET Q=Y+Q 

Z10 LET H=H-1 

220 IF Hx::0 THEN COTO 140 

230 LET P=0xR/2 

23 PRINT 

240 PRINT TAE 5;"RESFPOSTA! "SF 
250 STOF 

990 REM Y=(CFUNCAO DADA) 
1000 LET Y=1/2x EXF (-(XxX)/2) 
1010 RETURN 





"CALCULO DE ÁREAS" - HÉTODO TRAPEZOIDAL “5 





17 
2g 
39 
ug 
5g 
6g 
77 
8g 
98 
199 
11% 
12g 
139 
149 
159 
16g 
178 
189 
197 
287 
218 
22% 
1929 
19217 


Em vez de se calcular a area abaixo da curva core 
respondente a y=f(x), calcula-se a àrea do tra- 


peézio de altura b e bases Ea E dy 


*1 
/ Tt (x) dx = — ( J4 ) 


Xo 


PRINT *" QUAL O VALOR DA ABCISSA INICIAL DO INTERVALO 2 1 

INPUT A 

PRINT À 

PRINT * QUAL O VALOR DA ABCISSA FINAL DO INTERVALO 2? 1" 

INPUT B 

PRINT B 

PRINT " QUAL O NUMERO DE DIVISÕES DO INTERVALO Ui 

INPUT H 

PRINT H 

LET R=(B-A)/EH | ( R corresponde a uma divisão) 
LET Q =7 

LET X = A 

GOSUB I1ggg 

LET Q=1T+0Q 

LET X X + R (incremento das divisões do intervalo) 
GOSUB 1ggg 

LET Q =Y+0Q (incremento das ordenadas correspondentes ) 
LETH=>H-1 (contador para parar no fim do intervalo ) 
Ir H<> 9 THEN GOTO 149 

LET P=Q+R/2 (cálculo da àrea total ) 
PRINT TAB 5 ; " RESPOSTA Td E = 

STOP 

LET Y = (função) 

RETURN 


e meta e pd ss 


e! LU Ea p a + era TAP q . DS do Red dd 
cniiiira a remitente mai Ga Sr pipa it e aqu 
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"CALCULO DE AREAS" 






1g 
26 
38 
ag 
5% 
6g 
76 
88 
9 
197 
11g 
129% 
13% 
149 
159 
169 
179 
18g 
19g 
226 
2168 
226 
23% 
24d 
258 
1959 
1919 


ro 


PRINT '! QUAL O VALOR DA ABCISSA INICIAL DO INTERVALO ? " 

INPUT À 

PRINT A 

PRINT " QUAL O VALOR DA ABCISSA FINAL DO INTERVALO ? M A 
INPUT B 

PRINT B 

PRINT '' QUAL O NUMERO DE DIVISÕES DO INTERVALO ? " 

INPUT H 

PRINT H 

LET R=(B-A)/2/H ( R corresponde a uma divisao) 
LET Q =% 

LEP À = À 

GOSUB 1909 

LETQ=Y+Q 

LEE X=X+R (incremento das divisões do intervalo ) 
GOSUB 1927 E 
LET Q=Y44+0Q : 
LET X = X + R 

GOSUB 1908 

LET Q = 7 +00 (incremento das ordenadas correspondentes) 
LET H =H-1 (contador para parar no fim do intervalo) 
IF E <> 9 THEN GOTO 14$ 

LEP Pe Qu RY/ 3 (cálculo da area total ) 
PRINT TAB 5 $; ”" RESPOSTAS"; P 

STOP 

LET Y = (função) 

RETURN 






- METODO DE SIMPSON 


y=f(x) 


Substitue-se a curva pela parábola que passa 


pelos pontos Cego) (x) 47) Do (Xs075 Do 


h 
3 (7, + + Pa) 


X> 
/ fix) dx = 
X 


O 


ai 
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o «om «uu. cos cos» com esmo esmo cam cume com cesso eso 1000 0000 n0U6 0000 coco tOGC sGRS LGRO CAME SOUL GOCS 1000 LOUD CUL GUCL COLO DG0O COUS COS 4606 code 


PROGRAMA + CHESS TUTOR «< Xacrez ) 
RR RR OR DC OK SK 


MAGULMA SEL TRIM Lô kK ou 48 


DESCRITIVO é Frograma cara Jocar u“acrez com 39 niveis diferentes e que 
ensina 3 JoGB8ar uvacirex, 


NIVEL | —- FROFORCIONA UMA DEFENSIVA SIMELES F/PARTE DO COMPUTADOR 
NIVEL 2 - O COMPUTADOR APRESENTA UM JOGO MAIS ACTIVO 

NIVEL 3 —- O COMPUTADOR ATACA FORTEMENTE TODAS AS FECAS DO ADVERSARIO 
QUE NAO POSSUEM DEFESA CAPAZ, 


DEMO 1 OU COMPUTADOR APRESENTA UMA DEMOSTRACÃO DO JOGO-AFOS O JOGADOR 
MOVIMENTAR UMA ABERTURA. E EFECTUADA UMA LISTAGEM DE TODOS OS 
MOVIMENTOS SE TIVER A IMPRESSORA LIGADA. 


MOVIMENTOS !* Roque - basta colocar o Rei na POSiC3B0 respectivas. 
“Em rassant"- toma o reso 
Feso PFromovido - promove sempre o rezo 3 rainhas. 


INSTR 4 INICIA A ROTINA DE ENSINAR A JOCAR XADREZ 

WHITE 4 Seleccionando as brancasso computador resronde com uma das 
tres “classicas" - Siciliana: Irdiarz de KReisfuu Lorez", e coloca o 
rome da abertura no canto direito do ecran.Isto pode ser modificados 
Se Frassar 3 uma alternativa que sejas compativel com o original, 

ELACK i Selecciona as eretas.0 computador Joca uma das tres aberturas 
“classicas" e espera rela resposta do Jjdocador. 

SETUF é NESTA OECAO FODERA COLOCAR O TABULEIRO PREENCHIDO COMO QUISER 3 
desde que tudo esteja correcto ( ror exemelo NAO coloque dois bisros 
na diagonal branca !) 

Quando tiver terminado a colocscao das FeCcas; escreva X eBra 
terminar. 


AS COORDENADAS DAS FECAS SAO DADAS DA SEGUINTE FORMA $! SC enter 3F 
enter 


Usar as seguintes teclas (resta osrcao) ! 


?* Auxilio - o computador executa os movimentos 

€ Reset - O computador inicis uM novo jogo 

s Corigs - pode executar uma coria do tabuleiro e usar esse Joco 
rosteriormente 

"Movimento - o computador executa os movimentos legais, Roque sera 


verificado com duas 'casas! para o Rei e "tomar a passagem" sera 
Qqusndo os reoes ficam lado a lado. 


DELETE - poce eliminar ate 3 Jogadas desde que nao vB demasiadamente 
avarncado ma abertura que escolheu.Nao rode eliminar movimentos durlos 
(Roque preso) 


ESTE PROGRAMA FOSSUI RELOGIO FARA AS JOCADAS 


PRECO P/CLUBE Z00 cosorcssas ESC. 400% 


tc it 


OP e a rã memo qremse mms = Eder mera mam md vo 


e a e e ep SD q q A Pp 


Vesar 
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SUOLICITA-SE A TODOS OS SOCIOS:» QUE 


.. 


DE. 


D & 


Pa 


... ss uuas 
... e... vem. ums cogu cup 44 


MICROCOMPUTADORES» DE QUE FOSSI 
NECESSITAMOS URGENTEMENTE DE DAE | 
DIVULGAÇÃO DO JORNAL DO CLUBE 

EXEMPLARES MENSAIS) E SO COM UMA GRANDE CAMPANHA D 


SERA 


Ê 


O ec ft E 
LAI! 


ROVOS LIVROS 


e LE PETIT LIVRE DU ZX81, TOMS Trever 


(Trad. francesa de “ZX81 Pecket Beek”) 


PREÇO (fetecépias): 270800 


Este livre é um bem auxiliar na aprendizagem 
da pregramaçãe, dade que centém pregramas 
bastante bem explicades e algumas sub-retinas 
que pedem usar-se cem êxite nes seus prépries 
pregramas., 


e SPECTRUM MACHINE LANGUAGE FOR THE ABSOLUTE 
BEGINNER, TANG William, Melbeurne Heuse 
PREÇO (fetecépias): 490400 


Come e títule indica, este livre centém teda a 
infermaçãe útil para es utilizaderes de SPECTRUM, 
principiantes na área da Linguagem Máquina. 


« UNDERSTANDING YOUR SPEÇIRUM, LOGAN Ian, Melbeurne 
PREÇO (Livre): 450800 


Este livre destina-se essencialmente ae leiter 


que pretende desenvelver a cempreensãe de funcie 


namente interne de SPECTRUM, Inclui uma explica- 
ção detalhada da ROM e suas retinas, 


ATENCAO + FEDIDO ESPECIAL 


.. ua nua vu. uu us eme sos urs sos om ums som sons am 
rs as Dans uns nara nos cent nur suas mass 


. NOS INFORMEM DE L 

JAM CONHECIMENTO. 

JM CRANDE PASSO EM 
[5 F 


IMPRESSAO TIFOGRE 


PUIDAVEL ) 


/) 


o» 


UCATS DE VENDA 


NTE NO 
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CXPANSÃO 
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00 
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o 
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